home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u3.d64 / a maz'in basic.b (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  1KB  |  47 lines
  1. 10 PRINT"[147]":X=2:Y=14:GOSUB460:PRINT"A MAZ'IN BASIC
  2. 20 [153]"YOU GET 500 POINTS FOR REACHING FINISH
  3. 30 PRINT"AND YOU GET 10 POINTS FOR EVERY SPACE
  4. 40 [153]"THAT YOU GET....BUT YOU MUST HURRY!
  5. 50 PRINT"YOU HAVE 5 SCREENS TO PLAY UNLESS YOU
  6. 60 [153]"GET BOXED IN IN WHICH CASE YOU LOSE.
  7. 70 PRINT"IF YOU'RE BRAVE ENOUGH TO PLAY THEN USE
  8. 80 [153]"JOYSTICK #1 AND INPUT
  9. 90 INPUT"YOUR NAME";N$
  10. 100 FORT=2TO6
  11. 110 PRINT"[147] SETTING UP MAZE #"T-1;"[157]";
  12. 120 POKE53280,T
  13. 130 POKE53281,T
  14. 140 FORA=1TO979:PRINT" ";:NEXT
  15. 150 Q=.2:D=23:E=T:Z=1024
  16. 160 FORH=1TO23:FORI=1TO38
  17. 170 IFRND(1)>QTHENPOKEZ+H*40+I,32
  18. 180 NEXT:NEXT
  19. 190 PRINT"                              [146] FINISH[146] "
  20. 200 H=INT(RND(1)*(16)+2)
  21. 210 I=INT(RND(1)*(23)+15)
  22. 220 B=D:C=E
  23. 230 F=H:G=I
  24. 240 IFRND(1)>Q THEN H=H-SGN(H-D):I=I+SGN(E-I):GOTO 270
  25. 250 H=H+INT(RND(1)*3-1)
  26. 260 I=I+INT(RND(1)*3-1)
  27. 270 IFPEEK(Z+H*40+I)>127THENH=F:I=G
  28. 280 P=PEEK(56321)
  29. 290 D=D+((PAND1)=0)-((PAND2)=0)
  30. 300 E=E+((PAND4)=0)-((PAND8)=0)
  31. 310 X=B:Y=C:GOSUB460:PRINT"[166]"
  32. 320 X=F:Y=G:GOSUB460:PRINT"$"
  33. 330 IFPEEK(Z+D*40+E)>90THEND=B:E=C
  34. 340 X=D:Y=E:GOSUB460:PRINT"O"
  35. 350 X=H:Y=I:GOSUB460:PRINT"M"
  36. 360 PRINT"   "N$"'S SCORE"S:IFD<>CORE<>CTHENS=S+10
  37. 370 IFD<>0AND(D<>HORE<>I)THEN220
  38. 380 PRINT"[147]"
  39. 390 IFD=0THENS=S+500:X=12:Y=11:GOSUB460:PRINT"*** YOU ESCAPED ***
  40. 400 [139]D[178]H[175]E[178]I[167] X[178]12:Y[178]9:[141]460:[153]"*** YOU WERE EATEN ***
  41. 410 FORK=0TO2000:NEXT
  42. 420 NEXT T:PRINT"[147] FINAL SCORE"S
  43. 430 POKE198,0:INPUT"PLAY AGAIN Y/N";P$
  44. 440 IF LEFT$(P$,1)="Y" THEN 100
  45. 450 END
  46. 460 POKE214,X:POKE211,Y:SYS58732:RETURN
  47.